SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00517_slide show stuff.ls

Text File | 1995-10-13 | 1.5 KB | 57 lines

on shReadSlides
  global glShotList, giShotListIndex
  if the machineType < 256 then
    set infile to FileIO(mnew, "?Read", "SHOT")
  else
    set infile to FileIO(mnew, "?Read", "Sho")
  end if
  if objectp(infile) then
    set glShotList to []
    set tempSubject to "a"
    repeat while tempSubject <> EMPTY
      set tempSubject to infile(mReadLine)
      set tempIndex to infile(mReadLine)
      if tempSubject = EMPTY then
        exit repeat
      end if
      put EMPTY into char length(tempSubject) of tempSubject
      append(glShotList, tempSubject)
      append(glShotList, value(tempIndex))
    end repeat
    infile(mdispose)
  end if
  cNextShot(1)
end

on shWriteSlides
  if the machineType < 256 then
    set outfile to FileIO(mnew, "?Write", "My Shot List")
  else
    set outfile to FileIO(mnew, "?Write", "ShotList.SHO")
  end if
  if objectp(outfile) then
    set temp to 1
    repeat while temp < count(glShotList)
      outfile(mWriteString, string(getAt(glShotList, temp)) & RETURN)
      set temp to temp + 1
      outfile(mWriteString, getAt(glShotList, temp) & RETURN)
      set temp to temp + 1
    end repeat
    if the machineType < 256 then
      outfile(mSetFinderInfo, "SHOT", "CHER")
    end if
    outfile(mdispose)
  end if
  updateStage()
end

on shDeleteShot
  global giShotListIndex, glShotList, biggie
  set holderlist to count(glShotList)
  if holderlist > 2 then
    deleteAt(glShotList, giShotListIndex)
    deleteAt(glShotList, giShotListIndex)
  end if
  cNextShot(-1)
end